﻿Public Class frmMain
    Private Sub mnuUser_Click(sender As Object, e As EventArgs) Handles mnuUser.Click
        Dim frmchild As New frmUser
        frmchild.MdiParent = Me
        frmchild.Show()
    End Sub

    Private Sub mnuPwdModify_Click(sender As Object, e As EventArgs) Handles mnuPwdModify.Click
        Dim frmchild As New frmPwdModify
        frmchild.MdiParent = Me
        frmchild.Show()
    End Sub

    Private Sub mnuExit_Click(sender As Object, e As EventArgs) Handles mnuExit.Click
        Me.Close()
    End Sub

    Private Sub StudentInfoAdd_Click(sender As Object, e As EventArgs) Handles StudentInfoAdd.Click
        Dim frmchild As New frmStudentInfoAdd
        frmchild.MdiParent = Me
        frmchild.Show()
    End Sub

    Private Sub StudentInfoModify_Click(sender As Object, e As EventArgs) Handles StudentInfoModify.Click
        Dim frmchild As New frmStudentInfoModify
        frmchild.MdiParent = Me
        frmchild.Show()
    End Sub

    Private Sub StudentInfoQuery_Click(sender As Object, e As EventArgs) Handles StudentInfoQuery.Click
        Dim frmchild As New frmStudentInfoQuery
        frmchild.MdiParent = Me
        frmchild.Show()
    End Sub

    Private Sub CJAdd_Click(sender As Object, e As EventArgs) Handles CJAdd.Click
        Dim frmchild As New frmCJAdd
        frmchild.MdiParent = Me
        frmchild.Show()
    End Sub

    Private Sub CJModify_Click(sender As Object, e As EventArgs) Handles CJModify.Click
        Dim frmchild As New frmCJModify
        frmchild.MdiParent = Me
        frmchild.Show()
    End Sub

    Private Sub CJQuery_Click(sender As Object, e As EventArgs) Handles CJQuery.Click
        Dim frmchild As New frmCJQuery
        frmchild.MdiParent = Me
        frmchild.Show()
    End Sub

    Private Sub CourseAdd_Click(sender As Object, e As EventArgs) Handles CourseAdd.Click
        Dim frmchild As New frmCourseAdd
        frmchild.MdiParent = Me
        frmchild.Show()
    End Sub

    Private Sub CourseModify_Click(sender As Object, e As EventArgs) Handles CourseModify.Click
        Dim frmchild As New frmCourseModify
        frmchild.MdiParent = Me
        frmchild.Show()
    End Sub

    Private Sub CourseQuery_Click(sender As Object, e As EventArgs) Handles CourseQuery.Click
        Dim frmchild As New frmCourseQuery
        frmchild.MdiParent = Me
        frmchild.Show()
    End Sub
End Class